; $VER: Install-IBrowse 2.5.10 (14.2.2020)

(set #app-version "2.5.2")	; Update this for each version
(set #app-vernum 25)		; Build version number
(set #app-year 2020)            ; Copyright year
(set @app-name "IBrowse")	; Application name

(set #installer-ver (/ @installer-version 65536))
(set #propchoices (if (< #installer-ver 42) "" "\x1b[2p"))
(set #cpu (database "cpu") )
(set #fpu (database "fpu") )
(set #osver (/ (getversion "exec.library" (resident)) 65536))
(set #v39 (>= #osver 39))
(set #os4 0)
(set #mos 0)
(if (and (<> #cpu "68000") (<> #cpu "68010") )
  (set #cpu-install 0) )
(if (and (<> "NOFPU" #fpu) (= #cpu-install 1) )
  (set #cpu-install 2) )
(if (and (<> "NOFPU" #fpu) (= "68040" #cpu) )
  (set #cpu-install 3) )
(if (exists "libs:68060.library")
  (set #cpu-install 4) )
(if (= (run "C:Version >NIL: MorphOS" (safe)) 0)
  ( (set #mos 1)
    (set #cpu-install 2) )
  (if (>= #osver 52)
    ( (set #os4 1)
      (if (exists "codecs68020fpu")
         (set #cpu-install 2)
         (set #cpu-install 5) ) ) ) )
(set #dispdepth (if (< #installer-ver 44) (if #os4 24 8) (querydisplay "screen" "depth") ) )
(set #muidir (if (= #mos 1) "SYS:Classes/MUI" "MUI:Libs/MUI") )

(set #disk-install (if (exists "Anims") 0 1) )

(if (= (exists "ENV:Language") 1)
  (set @language (getenv "Language") ) )

; /*------------------------------------------------------------------------*/

; *** English strings ***

(set #welcome (cat
  "\n\nThis is the installation for IBrowse %s %s.\n"
  "IBrowse is a fast web browser for the Amiga that supports many HTML 4.0 "
  "features, JavaScript, as well as many Netscape specific extensions.\n\n"
  "IBrowse is  2001-%ld Stefan Burstroem\n 1995-2001 Omnipresence Intl.\n\n"
  "www.ibrowse-dev.net\n\n")
)
(set #welcome-store
  "Purchase the full version from https://www.ibrowse-dev.net/store"
)
(set #languages-prompt
  "Please select which languages for IBrowse you would like to install"
)
(set #destdir-prompt (cat
  "Please select where you want to install IBrowse. A drawer named 'IBrowse' "
  "will be created in this directory if it doesn't already exist")
)
(set #cpu-prompt
  "Select which version of IBrowse you would like to install"
)
(set #cpu-prompt-ppc (cat
  "Select which version of IBrowse you would like to install\n"
  "(PowerPC native JavaScript core will be installed)")
)
(set #cpu-help (cat
  "You should choose the configuration that suits your computer. The "
  "installation has guessed what you need, but you may change it as long as "
  "you have a computer that can handle it. If you own an 68040 without fpu, "
  "select 68020+. If you own a 68030 (with/without fpu), select 020+ (with/"
  "without fpu).")
)
(set #string (cat
  "This option requires you to enter a value (or leave it blank) You can "
  "find additional information in the manual about the verious elements in "
  "the preferences")
)
(set #dir (cat
  "This option requires you to choose a directory. Choose one that suits "
  "your needs.")
)
(set #ask-configure
  "You can configure some important parts of"
)
(set #old-prefs (cat
  "If you have an old version of IBrowse installed here, your old preferences "
  "are left untouched - they will be renamed so that you don't lose any old "
  "settings. If you select skip, no files will be changed or copied.")
)
(set #old-hotlist (cat
  "If you have an old version of IBrowse installed here, your old hotlist will "
  "be left untouched - it will be renamed so that you don't lose any links. "
  "If you select skip, no files will be changed or copied.")
)
(set #anim-help (cat
  "You may choose which anim you want to install. They use different amounts "
  "of memory and you should choose the one that you find suitable for your "
  "system.")
)
(set #anim-prompt
  "Which transfer animation do you want to install?"
)
(set #anim-TrueColor
  "24bit TrueColour"
)
(set #anim-256Color
  "8bit 256 colours"
)
(set #anim-64Color
  "6bit 64 colours"
)
(set #anim-32Color
  "5bit 32 colours"
)
(set #anim-32ColorNM
  "5bit 32 colours (non moving)"
)
(set #anim-None
  "None (use existing animation)"
)
(set #languages-help (cat
  "Choose which languages you want IBrowse to be able to use. Languages in "
  "(parentheses) are not currently included in this archive.")
)
(set #destdir-help (cat
  "Choose where you want IBrowse to be stored. A drawer will be created in "
  "this location and you will find all files in this drawer. Nothing is copied "
  "to other locations on your harddrive.")
)
(set #need39
  "\n\nSorry, but you need KS3.0 or later to run IBrowse."
)
(set #ask-mui38 (cat
  "\n\nIBrowse uses some new features in MUI3.8\nYou need to install this "
  "version for IBrowse to operate properly.")
)
(set #newstring-prompt (cat
  "IBrowse uses NewString.mcc (c) 1995-1997 Rdiger Sopp and will now be "
  "installed if you don't already have the latest version.")
)
(set #newstring-help
  "NewString.mcc must be installed to make IBrowse work correctly."
)
(set #help-manual (cat
  "The included manual is online HTML documentation. If you don't install it "
  "now, you can install it at a later time or view it from the distribution "
  "archive.")
)
(set #ask-manual
  "Do you want to install the included online HTML documentation?"
)
(set #nlist-message (cat
  "IBrowse %s uses NList.mcc & friends. They will now be installed if you "
  "don't have them.  The latest versions (including PPC native builds) are "
  "available from https://github.com/amiga-mui/nlist.")
)
(set #ice-message (cat
  "The Cache Explorer in IBrowse %s uses a few custom mui classes. They will "
  "now be installed if you don't have them.")
)
(set #ice-delete (cat
  "The Cache Explorer class is now located in the ibcc directory, so this file "
  "is no longer needed")
)
(set #multiview-error (cat
  "Unable to find MultiView. Please read the file ReadMe.txt when you have "
  "finished this installation")
)
(set #mui38-message (cat
  "\n\n\nIBrowse needs MUI3.8 or later to function properly. You may skip this "
  "part and install MUI3.8 manually from the 3rd disk instead, but it is "
  "recomended that you let this installer install MUI3.8 as well.\n")
)
(set #mui-curr_message
  "You have MUI %s currently installed."
)
(set #nomui-message
  "You have no version of MUI installed."
)
(set #upgrade-message (cat
  "\n\nUpgrading an existing IBrowse %s installation.\n\nYour existing "
  "preferences file will not be overwritten, so that you don't lose your "
  "existing settings. The new preferences file will instead be copied to "
  "IBrowse_%s.prefs in case you need it.")
)
(set #upgrade-message-noprefs (cat
  "\n\nUpgrading an existing IBrowse %s installation to IBrowse %s.\n\nYour existing "
  "preferences file will not be overwritten, so that you don't lose your "
  "existing settings.")
)
(set #prompt-proceed
  "Proceed"
)
(set #prompt-skip
  "Skip this part"
)
(set #prompt-copy
  "Copying"
)
(set #prompt-dearchiving
  "Dearchiving distribution archive..."
)
(set #prompt-insertdisk
  "\n\n\nPlease insert disk %ld"
)
(set #image-prompt
  "Copying program images - Skip this part if you are using third-party images."
)
(set #upgradev1-message (cat
  "\n\nAn IBrowse 1.x installation was detected - your current IBrowse drawer "
  "will be renamed \"IBrowseV1\" and IBrowse %s shall be installed to a new "
  "IBrowse drawer.")
)
(set #catalogver-prompt (cat
  "At least one of the languages you selected is supplied in two versions (see "
  "help for more information).  Select which ones you would like to install:")
)
(set #catalogver-help (cat
  "Some language catalogs for IBrowse are supplied in two flavours - one for "
  "classic AmigaOS 3.x systems, and another for OS4.  The catalogs for OS4 "
  "are able to use more suitable character sets (e.g. ISO-8859-2) and fonts "
  "in order to support languages that use non-Latin characters better.\n\n"
  "This installer detected that your system can make use of the OS4 catalogs, "
  "so it is recommended that you select this option.  However, you may also "
  "want to install the OS3.x catalogs too for backwards compatibility - both "
  "can be installed simultaneously, and the correct one will be used "
  "depending on whether you use OS3.x or OS4 at the time.")
)
(set #olddocs-prompt (cat
  "You have the old documentation installed.  Would you like this to be "
  "deleted?\n\n"
  "(the new documentation completely supercedes this)")
)
(set #olddocs-help (cat
  "You may keep the old documentation installed if you want, and the new "
  "documentation will be installed alongside it.  Both sets of documentation "
  "will be accessible.  However, the old documentation is very much out of "
  "date and limited compared to the new documentation, so there is no real "
  "need to keep the old documentation installed.")
)
(set #deleteold-prompt
  "Deleting old documentation files"
)
(set #deleteold-help
  "The \"helpfiles\" directory will now be deleted"
)
(set #image-replace-prompt (cat
  "Copying all program images - there have been major changes since IBrowse %s "
  "so your old 'images' drawer will be renamed to '%s'")
)
(set #copyicon-prompt (cat
  "Would you like to overwrite your existing IBrowse icon with the new look "
  "icon?  (any tooltypes will be reset to default)")
)
(set #images-prompt
  "Which imageset do you want to install?"
)
(set #images-32Color
  "5bit 32 colours (ILBM)"
)
(set #images-256Color
  "8bit 256 colours (PNG datatype required)"
)
(set #images-none
  "None (use existing images)"
)
(set #images-help (cat
  "You may choose which images you want to install. They use different amounts "
  "of memory and you should choose the one that you find suitable for your "
  "system. Generally, you should only use the 256 colour images if you are "
  "running on a graphics card with a TrueColour display (15bit or better), "
  "otherwise the colours used by the program images will reduce the amount "
  "colours available to web pages. Also, the 256 colour images require a PNG "
  "datatype to already be installed on your system, such as WarpPNG.datatype.")
)

; *** Czech ***
;(if (= @language "czech") (
;
;))

; *** Bosanski ***
;(if (= @language "bosanski") (
;
;))

; *** Dansk ***
;(if (= @language "dansk") (
;
;))

; *** Deutsch ***
(if (= @language "deutsch") (
(set #welcome (cat
  "\n\nDies ist die Installation fr IBrowse %s %s.\n"
  "IBrowse ist ein schneller Webbrowser fr den Amiga und untersttzt viele HTML 4.0 "
  "Eigenschaften, JavaScript, sowie viele Netscape spezifischen Erweiterungen.\n\n"
  "IBrowse ist  2001-%ld Stefan Burstroem\n 1995-2001 Omnipresence Intl.\n\n"
  "www.ibrowse-dev.net\n\n")
)
(set #languages-prompt
  "Bitte whlen Sie die zu installierenden Sprachen fr IBrowse"
)
(set #destdir-prompt (cat
  "Wo mchten Sie IBrowse installieren. Ein Verzeichnis namens 'IBrowse' "
  "wird dort erzeugt, falls es nicht schon existiert")
)
(set #cpu-prompt
  "Welche Version von IBrowse mchten Sie installieren"
)
(set #cpu-prompt-ppc (cat
  "Welche Version von IBrowse mchten Sie installieren\n"
  "(PowerPC natives JavaScript core wird installiert)")
)
(set #cpu-help (cat
  "Sie sollten die Einstellungen ihrem Computer anpassen. Es wurden bereits "
  "die passenden ausgewhlt, aber vielleicht mchten Sie das ndern, wenn "
  "ihr Computer auch andere untersttzt. Falls Sie einen 68040 ohne FPU, "
  "besitzen, nehmen Sie 68020+. Wenn es ein 68030 (mit/ohne FPU) ist, nehmen "
  "Sie 020+ (mit/ohne FPU).")
)
(set #string (cat
  "Geben Sie einen Wert ein (oder nichts). In der Dokumentation finden "
  "Sie nhere Informationen zu den verschiedenen Einstellungselementen ")
)
(set #dir (cat
  "Bitte whlen Sie ein sinnvolles Verzeichnis.")
)
(set #ask-configure
  "Sie knnen einige wichtige Teile einstellen von "
)
(set #old-prefs (cat
  "Falls Sie hier eine alte Version von IBrowse installiert haben, werden Ihre "
  "alten Einstellungen unverndert gelassen - sie werden umbenannt, so dass Sie diese nicht "
  "verlieren. Wenn Sie berspringen auswhlen, werden keine Dateien verndert oder kopiert.")
)
(set #old-hotlist (cat
  "Falls Sie hier eine alte Version von IBrowse installiert haben, werden ihre "
  "Favoriten unverndert gelassen - sie werden umbenannt, so dass Sie keine Links verlieren. "
  "Wenn Sie berspringen auswhlen, werden keine Dateien verndert oder kopiert.")
)
(set #anim-help (cat
  "Welche Animation mchten Sie installieren? Diese brauchen unterschiedlich "
  "Speicher und Sie sollte zu ihrem System passen.")
)
(set #anim-prompt
  "Welche Animation mchten Sie installieren?"
)
(set #anim-TrueColor
  "24Bit Echtfarben"
)
(set #anim-256Color
  "8Bit 256 Farben"
)
(set #anim-64Color
  "6Bit 64 Farben"
)
(set #anim-32Color
  "5Bit 32 Farben"
)
(set #anim-32ColorNM
  "5Bit 32 Farben (unbeweglich)"
)
(set #anim-None
  "Keine (bestehende Animation verwenden)"
)
(set #languages-help (cat
  "Welche Sprache soll IBrowse verwenden? Sprachen in "
  "(Klammern) werden derzeit nicht untersttzt.")
)
(set #destdir-help (cat
  "Wo soll IBrowse abgelegt werden? Dort wird ein Verzeichnis angelegt und alle "
  "Dateien werden dort abgelegt. Es wird nichts an andere Stellen kopiert.")
)
(set #need39
  "\n\nEntschuldigung, aber Sie bentigen KS3.0 oder besser fr IBrowse."
)
(set #ask-mui38 (cat
  "\n\nIBrowse verwendet einige neue Eigenschaften von MUI3.8\nSie bentigen "
  "diese Version, damit IBrowse vernnftig luft.")
)
(set #newstring-prompt (cat
  "IBrowse verwendet NewString.mcc (c) 1995-1997 Rdiger Sopp. Wo liegt "
  "ihr installiertes MUI?")
)
(set #newstring-help
  "NewString.mcc muss installiert sein fr IBrowse."
)
(set #help-manual (cat
  "Die beigelegte Anleitung ist eine Online HTML Dokumentation. Sie knnen "
  "diese auch spter installieren oder sie direkt jetzt im Archiv anschauen.")
)
(set #ask-manual
  "Mchten Sie die beigelegte Online HTML Dokumentation installieren?"
)
(set #nlist-message (cat
  "IBrowse %s verwendet NList.mcc & weitere. Diese werden, wenn nicht vorhanden, "
  "jetzt installiert. Die neuesten Versionen (einschlielich PPC nativen) sind "
  "unter https://github.com/amiga-mui/nlist zu finden.")
)
(set #ice-message (cat
  "Der Pufferbetrachter in IBrowse %s verwendet einige MUI Klassen. Diese werden "
  "jetzt installiert, falls nicht vorhanden.")
)
(set #ice-delete (cat
  "Die Pufferbetrachter Klasse befindet sich jetzt im Verzeichnis ibcc, darum ist "
  "diese Datei nicht lnger ntig")
)
(set #multiview-error (cat
  "MultiView fehlt. Bitte lesen Sie ReadMe.txt nach dieser Installation")
)
(set #mui38-message (cat
  "\n\n\nIBrowse bentigt MUI3.8 oder besser. Sie knnen dies auch manuell "
  "tun von der dritten Diskette, aber empfohlen wird eine Installation "
  "mit dem Installer.\n")
)
(set #mui-curr_message
  "MUI %s ist derzeit installiert."
)
(set #nomui-message
  "Sie haben MUI nicht installiert."
)
(set #upgrade-message (cat
  "\n\nAktualisieren einer existierenden IBrowse %s Installation.\n\nIhre "
  "Einstellungen werden nicht berschrieben. Die neue Einstellungsdatei "
  "wird als IBrowse_%s.prefs kopiert, falls bentigt.")
)
(set #prompt-proceed
  "Fortsetzen"
)
(set #prompt-skip
  "Diesen Teil berspringen"
)
(set #prompt-copy
  "Kopiere"
)
(set #prompt-dearchiving
  "Auspacken des Archivs..."
)
(set #prompt-insertdisk
  "\n\n\nBitte Diskette %ld einlegen"
)
(set #image-prompt
  "Kopiere Programmbilder - berspringen, falls Fremdbilder benutzt werden."
)
(set #upgradev1-message (cat
  "\n\nEine IBrowse 1.x Installation wurde entdeckt - Ihr derzeitiges IBrowse "
  "Verzeichnis wird in \"IBrowseV1\" benannt und IBrowse %s in ein neues "
  "Verzeichnis installiert.")
)
(set #catalogver-prompt (cat
  "Mindestens eine der gewhlten Sprachen ist in zwei Versionen verfgbar (siehe "
  "Hilfe fr nhere Informationen). Welche mchten Sie installieren:")
)
(set #catalogver-help (cat
  "Einige Sprachkataloge fr IBrowse gibt es in zwei Varianten - eine fr "
  "klassische AmigaOS 3.x Systeme, und die andere fr OS4. Die Kataloge fr "
  "OS4 knnen weitere Zeichenstze nutzen (z.B. ISO-8859-2) und Zeichenstze, "
  "die nicht lateinische Schriften besser untersttzen.\n\n"
  "Dieser Installer hat bemerkt, dass Ihr System davon Gebrauch machen kann, "
  "und wird somit empfohlen. Sie knnen jedoch auch die OS3.x Kataloge nehmen - "
  "beide knnen gleichzeitig installiert werden, und der richtige wird benutzt "
  "abhngig vom benutzten Betriebssystem.")
)
(set #olddocs-prompt (cat
  "Sie haben die alte Dokumentation installiert. Soll diese gelscht werden?\n\n"
  "(die neue Dokumentation macht diese berflssig)")
)
(set #olddocs-help (cat
  "Sie knnen die alte Dokumentation behalten, und die neue wird nebenher "
  "installiert. Beide sind dann verfgbar. Aber die alte ist sehr alt und "
  "nicht vergleichbar mit der neuen, so dass kein Bedarf dafr besteht.")
)
(set #deleteold-prompt
  "Lsche alte Dokumentation"
)
(set #deleteold-help
  "Das Verzeichnis \"helpfiles\" wird jetzt gelscht"
)
))

; *** Espaol ***
(if (= @language "espaol") (
(set #welcome (cat
  "\n\nEsta es la instalacin para IBrowse %s %s\n"
  "IBrowse es un navegador web para AMIGA con soporte HTML 4.0 (casi completo),\n"
  "JavaScript, y muchas extensiones especficas de Netscape.\n\n"
  "IBrowse es  2001-%ld Stefan Burstroem\n 1995-2001 Omnipresence Intl.\n\n"
  "www.ibrowse-dev.net\n\n")
)
(set #languages-prompt
  "Elija los idiomas en que desea instalar IBrowse:"
)
(set #destdir-prompt (cat
  "Elija donde desea instalar IBrowse. Se crear un cajn llamado 'IBrowse' "
  "si no existe ya uno.")
)
(set #cpu-prompt
  "Elija la versin de IBrowse que desea instalar:"
)
(set #cpu-prompt-ppc (cat
  "Elija la versin de IBrowse que desea instalar:\n"
  "(se instalar una versin de 'javascript.library' para PowerPC)")
)
(set #cpu-help (cat
  "Debera elegir una configuracin adecuada a su ordenador. La instalacin "
  "averigua la que necesita, pero puede cambiarla suponiendo que su sistema "
  "la puede utilizar. Si tiene un 68040/030 sin FPU, elija 68020. Si tiene "
  "un 68030 con FPU, elija 68020FPU.")
)
(set #string (cat
  "Necesita introducir un valor (o dejarlo vaco). Puede encontrar informacin "
  "adicional en el manual acerca de varios elementos de los ajustes.")
)
(set #dir (cat
  "Escoja un directorio, el cual cumpla con sus necesidades.")
)
(set #ask-configure
  "Puede configurar algunas partes importantes de"
)
(set #old-prefs (cat
  "Si tiene una versin antigua de IBrowse instalada aqu, sus antiguos "
  "ajustes permanecern intactos; se renombrarn y as no los perder. "
  "Si elije 'Saltar esta parte', no se cambiarn/copiarn los ajustes.")
)
(set #old-hotlist (cat
  "Si tiene una versin antigua de IBrowse instalada aqu, su antigua lista "
  "de favoritos permanecer intacta; se renombrar y as no la perder. "
  "Si elije 'Saltar esta parte', no se cambiarn/copiarn los favoritos.")
)
(set #anim-help (cat
  "Puede escoger la animacin que desea instalar. Cada una usa una cantidad "
  "diferente de RAM y debera escoger la ms adecuada a su sistema.")
)
(set #anim-prompt
  "Qu animacin de transferencia desea instalar?"
)
(set #anim-TrueColor
  "24bits (TrueColor)"
)
(set #anim-256Color
  "8bits (256 colores)"
)
(set #anim-64Color
  "6bits (64 colores)"
)
(set #anim-32Color
  "5bits (32 colores)"
)
(set #anim-32ColorNM
  "5bits (32 colores) [sin animacin]"
)
(set #anim-None
  "Ninguna (usar una ya existente)"
)
(set #languages-help (cat
  "Elija los idiomas en que desea usar en IBrowse. Idiomas entre "
  "(parntesis) no estn incluidos actualmente en la instalacin.")
)
(set #destdir-help (cat
  "Elija donde desea copiar IBrowse. Se crear un cajn en esa "
  "senda y encontrar todos los ficheros ah. No se copiar nada "
  "en otras sendas de su disco duro.")
)
(set #need39
  "\n\nLo siento, necesita KS3.0 o superior para ejecutar IBrowse."
)
(set #ask-mui38 (cat
  "\n\nIBrowse usa algunas opciones de MUI3.8\nNecesita instalar esta "
  "versin para su correcto funcionamiento.")
)
(set #newstring-prompt (cat
  "IBrowse usa NewString.mcc (C) 1995-1997 Rdiger Sopp.\nDonde tiene "
  "instalado MUI?")
)
(set #newstring-help
  "NewString.mcc ha de estar instalada para que IBrowse funcione correctamente."
)
(set #help-manual (cat
  "El manual incluido es una documetacin en lnea en HTML. Si no la instala "
  "ahora, puede hacerlo ms tarde o verlo en el archivo distribuido.")
)
(set #ask-manual
  "Desea instalar la documentacin en lnea HTML incluida?"
)
(set #nlist-message (cat
  "IBrowse %s usa el paquete NList. Se instalar ahora si no lo tiene. "
  "La ltima versin (incluyendo versin PowerPC) est disponible "
  "en: https://github.com/amiga-mui/nlist")
)
(set #ice-message (cat
  "El Explorador de cach (ICE) de IBrowse %s usa algunas clases MUI propias. "
  "Se instalarn ahora si no las tiene.")
)
(set #ice-delete (cat
  "La clase del Explorador de cach (ICE) se encuentra ahora en el directorio 'ibcc', por "
  "lo que este fichero ya no es encesario.")
)
(set #multiview-error (cat
  "No se ha podido encontrar 'MultiView'. Lea el fichero 'ReadMe.txt' al "
  "finalizar esta instalacin.")
)
(set #mui38-message (cat
  "\n\n\nIBrowse necesita MUI3.8 o superior para funcionar correctamente. Puede saltar "
  "esta parte e instalar MUI3.8 manualmente con el disco3, pero se recomienda "
  "que deje al instalador que proceda con dicha instalacin.\n")
)
(set #mui-curr_message
  "Tiene instalado actualmente MUI %s."
)
(set #nomui-message
  "No tiene ninguna versin de MUI instalada."
)
(set #upgrade-message (cat
  "\n\nActualizando una instalacin de IBrowse %s existente.\n\nSu fichero de ajustes "
  "actuales no se sobreescribir, con lo que no lo perder. El nuevo fichero de "
  "ajustes se copiar con el nombre 'IBrowse_%s.prefs' en caso que quiera usarlo.")
)
(set #prompt-proceed
  "Proceder"
)
(set #prompt-skip
  "Saltar esta parte"
)
(set #prompt-copy
  "Copiando"
)
(set #prompt-dearchiving
  "Descomprimiendo archivo..."
)
(set #prompt-insertdisk
  "\n\n\nInserte el disco%ld"
)
(set #image-prompt
  "Copiando imgenes del programa. Salte esta parte si desea usar las imgenes ya existentes."
)
(set #upgradev1-message (cat
  "\n\nSe ha detectado una instalacin de IBrowse 1.x; el cajn actual de "
  "IBrowse 1.x se renombrar a 'IBrowseV1' y se instalar IBrowse %s en "
  "uno nuevo llamado 'IBrowse'.")
)
(set #catalogver-prompt (cat
  "Alguno de los idiomas ha instalar existen en 2 versiones (lea la "
  "ayuda par ms informacin).\nElija que versiones desea instalar:")
)
(set #catalogver-help (cat
  "Algunos catlogos de idiomas para IBrowse se suministran en 2 versiones. "
  "Una es para sistemas clsicos AmigaOS3.x y la otra para AmigaOS4.  Los catlogos "
  "para OS4 permiten usar diferentes juegos de caracteres (ej.: ISO-8859-2) y "
  "tipos de letra que soportan varios idiomas (que no usan caracteres del Latn).\n\n"
  "El instalador detecta si su sistema puede usar catlogos de OS4, y recomienda "
  "que elija esta opcin. Aunque puede instalar los catlogos de OS3.x para "
  "compatibilidad con dichas versiones. Tambin puede instalar ambas versiones "
  "simultneamente, y en cada caso se usar el catlogo correspondiente a la versin "
  "del sistema operativo (OS3.x u OS4).")
)
(set #olddocs-prompt (cat
  "Tiene instalada documentacin antigua. Dese eliminarla?\n\n"
  "(la nueva actualiza completamente a esta).")
)
(set #olddocs-help (cat
  "Puede mantener la antigua documentacin instalada si lo desea. La "
  "nueva se instalar a continuacin de esta, pudiendo acceder a ambas "
  "versiones de documentacin. Sin embargo, la antigua documentacin est "
  "muy obsoleta en comparacin con la nueva, por lo que no tiene la "
  "necesidad de mantener la antigua documentacin instalada.")
)
(set #deleteold-prompt
  "Borrando la antigua documentacin"
)
(set #deleteold-help
  "Se borrar a continuacin el fichero 'helpfiles'."
)
))

; *** Franais ***
; by bovier philippe e-mail: mrodfr@gmail.com
; V1.0 initial translation (10/12/2006)
(if (= @language "franais") (
(set #welcome (cat
  "\n\nBienvenue sur l'installation d'IBrowse %s %s.\n"
  "IBrowse est un navigateur internet rapide et qui supporte HTML 4.0, "
  "JavaScript, et aussi la plupart des extensions spcifiques Netscape.\n\n"
  "IBrowse est  2001-%ld Stefan Burstroem\n 1995-2001 Omnipresence Intl.\n\n"
  "www.ibrowse-dev.net\n\n")
)
(set #languages-prompt
  "Merci de slectionner le langage pour IBrowse que vous dsirez installer."
)
(set #destdir-prompt (cat
  "Merci de slectionner l'endroit ou vous voulez installer IBrowse. Un rpertoire nomm 'IBrowse' "
  "sera cr dans ce rpertoire, si celui-ci n'existe pas dj.")
)
(set #cpu-prompt
  "Merci de slectionner la version d'IBrowse que vous dsirez installer."
)
(set #cpu-prompt-ppc (cat
  "Merci de slectionner la version d'IBrowse que vous dsirez installer\n"
  "(JavaScript natif PowerPC sera install).")
)
(set #cpu-help (cat
  "Vous devez choisir l'installation qui convient le mieux  votre ordinateur. "
  "L'installation sera faite selon vos choix, mais vous pourrez en changer "
  "ds que vous aurez un ordinateur qui le permettra.\n\nSi vous avez un 68040 sans FPU, "
  "slectionez 68020+. Si vous avez un 68030 (avec/sans FPU), slectionnez 020+ (avec/"
  "sans FPU).")
)
(set #string (cat
  "Cette option ncessite l'entre d'une valeur (ou laissez-la vide). Vous pouvez "
  "trouver des informations additionnelles dans la documentation au sujet des diffrents "
  "paramtres dans les prfrences.")
)
(set #dir (cat
  "Cette option ncessite que vous choisissiez un rpertoire. Choisissez celui qui "
  "vous convient le mieux.")
)
(set #ask-configure
  "Vous pouvez configurer des parties importantes de"
)
(set #old-prefs (cat
  "Si vous avez une ancienne version d'IBrowse installe ici, vos anciennes prfrences "
  "ne seront pas modifies - Elles seront renommes pour que vous ne perdiez aucun de vos "
  "anciennes prfrences. Si vous slectionnez  passer , aucun fichier ne sera modifi ou copi.")
)
(set #old-hotlist (cat
  "Si vous avez une ancienne version d'IBrowse installe ici, votre ancienne hotlist ne "
  "sera pas modifie - Elle sera renomme afin que vous ne perdiez aucun de vos liens. "
  "Si vous slectionnez  passer , aucun fichier ne sera modifi ou copi.")
)
(set #anim-help (cat
  "Vous pouvez choisir l'animation que vous dsirez installer. Elles utilisent diffrentes "
  "quantites de mmoire et donc vous devriez choisir celle qui conviendra le mieux pour votre "
  "systme.")
)
(set #anim-prompt
  "Quelle animation de transfert dsirez-vous installer ?"
)
(set #anim-TrueColor
  "24 bits"
)
(set #anim-256Color
  "8 bits 256 couleurs"
)
(set #anim-64Color
  "6 bits 64 couleurs"
)
(set #anim-32Color
  "5 bits 32 couleurs"
)
(set #anim-32ColorNM
  "5 bits 32 couleurs (statique)"
)
(set #anim-None
  "Aucune (utilisation animation existante)"
)
(set #languages-help (cat
  "Choisissez le langage qu'IBrowse doit utiliser. Les langages en "
  "(parenthses) ne sont pas actuellement inclus dans l'archive.")
)
(set #destdir-help (cat
  "Choisissez o IBrowse va devoir tre install. Un rpertoire sera cr  cet "
  "endroit et vous y trouverez tous les fichiers aprs installation.\n\nRien ne sera "
  "copi dans d'autres endroits de votre disque dur.")
)
(set #need39
  "\n\nDsol, vous devez utiliser KS3.0 ou suprieur pour utiliser IBrowse."
)
(set #ask-mui38 (cat
  "\n\nIBrowse utilise des fonctions de MUI3.8.\nVous devez installer cette version "
  "pour qu'IBrowse fonctionne correctement.")
)
(set #newstring-prompt (cat
  "IBrowse utilise NewString.mcc (c) 1995-1997 Rdiger Sopp.  quel endroit "
  "avez-vous MUI install ?")
)
(set #newstring-help
  "NewString.mcc doit tre install pour qu'IBrowse fonctionne correctement."
)
(set #help-manual (cat
  "La documentation incluse est une documentation HTML en ligne. Si vous ne l'installez pas "
  "maintenant, vous pouvez l'installer plus tard ou la visualiser  partir de "
  "l'archive de distribution.")
)
(set #ask-manual
  "Voulez-vous installer la documentation HTML en ligne incluse ?"
)
(set #nlist-message (cat
  "IBrowse %s utilise NList.mcc et compagnie. Elle seront maintenant installes si vous "
  "ne les avez pas encore.\n\nLes dernires versions (incluant les versions natives PPC) sont "
  "disponibles sur https://github.com/amiga-mui/nlist.")
)
(set #ice-message (cat
  "L'explorateur de cache d'IBrowse %s utilise quelques classes MUI supplmentaires. Elles seront "
  "maintenant installes si vous ne les avez pas encore.")
)
(set #ice-delete (cat
  "La classe de l'explorateur de cache est maintenant situe dans le rpertoire ibcc, aussi ce fichier "
  "n'est plus ncessaire.")
)
(set #multiview-error (cat
  "Impossible de trouver MultiView. Merci de lire le fichier ReadMe.txt lorsque l'installation "
  "sera termine.")
)
(set #mui38-message (cat
  "\n\n\nIBrowse ncessite MUI3.8 ou plus pour fonctionner correctement. Vous pouvez passer "
  "cette partie et installer MUI3.8 manuellement du 3eme disque  la place, mais il est "
  "recommand de laisser cette installation installer MUI3.8 aussi.\n")
)
(set #mui-curr_message
  "Vous avez MUI %s actuellement install."
)
(set #nomui-message
  "Vous n'avez pas de version de MUI installe."
)
(set #upgrade-message (cat
  "\n\nMise  jour d'une installation existante d'IBrowse %s.\n\nVotre fichier "
  "prfrences existant ne sera pas cras, vous ne perdrez donc pas vos paramtres "
  "existants. Le nouveau fichier prfrences sera  la place copi en "
  "IBrowse_%s.prefs au cas ou il serait ncessaire.")
)
(set #prompt-proceed
  "Processus"
)
(set #prompt-skip
  "Ignorer cette partie."
)
(set #prompt-copy
  "Copie"
)
(set #prompt-dearchiving
  "Dcompactage de l'archive de distribution..."
)
(set #prompt-insertdisk
  "\n\n\nSVP, insrer le disque %ld."
)
(set #image-prompt
  "Copie des images du programme - Passez cette partie si vous utilisez des images de tierces parties."
)
(set #upgradev1-message (cat
  "\n\nUne installation IBrowse 1.x a t dtecte - Votre rpertoire IBrowse actuel "
  "va tre renomm en \"IBrowseV1\" et IBrowse %s sera install dans un nouveau rpertoire "
  "IBrowse.")
)
(set #catalogver-prompt (cat
  "Au moins un des langages que vous avez slectionn est fournit en 2 versions (voir "
  "l'aide pour plus d'informations). Slectionnez celui que vous dsirez installer :")
)
(set #catalogver-help (cat
  "Certains langages pour IBrowse sont fournis en 2 versions - Une pour "
  "les systmes AmigaOS 3.x, l'autre pour AmigaOS 4.0.  Les catalogues pour OS4 "
  "sont capables d'utiliser des jeux de caractres et des polices plus compatibles (comme ISO-8859-2) "
  "afin de supporter des langages qui utilisent au mieux les caractres non-Latin.\n\n"
  "Cet installeur dtecte si votre systme peut utiliser des catalogues OS4, "
  "ausi il est recommand de slectionner cette option. Malgr tout, vous pouvez aussi "
  "installer les catalogues OS3.x en mme temps pour une compatibilite descendante - les deux "
  "peuvent tre installs en mme temps, et le meilleur sera utilis "
  "indpendamment que vous utilisiez OS3.x ou OS4.")
)
(set #olddocs-prompt (cat
  "Vous avez une ancienne documentation actuellement installe.  Dsirez-vous qu'elle "
  "soit supprime ?\n\n"
  "(La nouvelle documentation remplace compltement l'ancienne).")
)
(set #olddocs-help (cat
  "Vous pouvez garder l'ancienne documentation installe si vous le dsirez, et la nouvelle "
  "documentation sera installe en plus.  Les deux jeux de documentations "
  "seront accssibles. Cela dit, l'ancienne documentation est vraiment trs vieille "
  "et limite compare  la nouvelle version, Il n'y a donc pas de raison valable "
  "pour vouloir garder l'ancienne documentation installe.")
)
(set #deleteold-prompt
  "Suppression des anciens fichiers de l'ancienne documentation."
)
(set #deleteold-help
  "Le rpertoire \"helpfiles\" est maintenant supprim."
)
))

; *** Italiano ***
;(if (= @language "italiano") (
;
;))

; *** Magyar ***
;(if (= @language "magyar") (
;
;))

; *** Polski ***
(if (= @language "polski") (
(set #welcome (cat
  "\n\nWitamy w instalacji programu IBrowse %s %s.\n"
  "IBrowse jest szybk przegldark stron internetowych dla komputera Amiga, obsugujc wiele elementw jzyka HTML 4.0, "
  "jzyka JavaScript, jak rwnie wiele rozszerze specyficznych dla przegldarki Netscape.\n\n"
  "IBrowse - (c) 2001-%ld Stefan Burstroem\n(c) 1995-2001 Omnipresence Intl.\n\n"
  "www.ibrowse-dev.net\n\n")
)
(set #languages-prompt
  "Prosz wybierz, ktre jzyki chcesz zainstalowa"
)
(set #destdir-prompt (cat
  "Prosz wybierz, gdzie chcesz zainstalowa program IBrowse. Jeli podkatalog o nazwie \"IBrowse\n "
  "nie istnieje, zostanie on utworzony")
)
(set #cpu-prompt
  "Prosz wybierz, ktr wersj programu IBrowse chcesz zainstalowa"
)
(set #cpu-prompt-ppc (cat
  "Prosz wybierz, ktr wersj programu IBrowse chcesz zainstalowa\n"
  "(zostanie zainstalowana natywna wersja biblioteki do obsugi jzyka JavaScript dla procesorw PowerPC)")
)
(set #cpu-help (cat
  "Powiniene wybra konfiguracj najlepiej odpowiadajc Twojemu komputerowi. "
  "Skrypt instalacyjny zasugeruje Ci co powiniene wybra, ale moesz zmieni "
  "sugerowane opcje instalacji, jeli jeste pewien, e Twj komputer obsuy zainstalowan wersj. "
  "Jeli posiadasz procesor 68040 bez fpu, wybierz 68020+. Jeli posiadasz 68030 (z/bez fpu), wybierz 020+ (z/"
  "bez fpu).")
)
(set #string (cat
  "Ta opcja wymaga, aby poda jak warto (lub pozostawi to pole wolne). "
  "Dodatkowe informacje znajdziesz w dokumentacji w sekcji dotyczcej rnych "
  "elementw preferencji")
)
(set #dir
  "Ta opcja wymaga wybrania katalogu. Wybierz katalog speniajcy Twoje wymagania."
)
(set #ask-configure
  "Moesz skonfigurowa niektre wane czci"
)
(set #old-prefs (cat
  "Jeli masz w tym katalogu zainstalowan starsz wersj programu IBrowse, Twoje "
  "stare preferencje zostan pozostawione bez zmian - ich nazwa zostanie zmieniona, "
  "aby nie utraci adnych starych ustwaie. Jeli wybierzesz \"Pomi\", adne pliki "
  "nie zostan zmienione lub skopiowane.")
)
(set #old-hotlist (cat
  "Jeli masz w tym katalogu zainstalowan starsz wersj programu IBrowse, Twoje "
  "stare ustawienia szybkich odsyaczy zostan pozostawione bez zmian - ich nazwa zostanie zmieniona, "
  "aby nie utraci adnych starych odsyaczy. Jeli wybierzesz \"Pomi\", adne pliki "
  "nie zostan zmienione lub skopiowane.")
)
(set #anim-help (cat
  "Moesz wybra, ktr animacj chcesz zainstalowa. Uywaj one rnej iloci pamici, "
  "powiniene wybra t, ktra najbardziej odpowiada ustawieniom Twojego komputera.")
)
(set #anim-prompt
  "Ktr animacj przesyania chcesz zainstalowa?"
)
(set #anim-TrueColor
  "24bitow"
)
(set #anim-256Color
  "8bitow - 256 kolorw"
)
(set #anim-64Color
  "6bitow - 64 kolory"
)
(set #anim-32Color
  "5bitow - 32 kolory"
)
(set #anim-32ColorNM
  "5bitow - 32 kolory (bez poruszania)"
)
(set #anim-None
  "adnej (uyj istniejcej animacji)"
)
(set #languages-help (cat
  "Wybierz w jakich jzykach ma by dostpny program IBrowse. Jzyki w "
  "(nawiasach) s obecnie niedostpne w tym archiwum.")
)
(set #destdir-help (cat
  "Wybierz, gdzie chcesz zachowa program IBrowse. W podanej lokacji zostanie "
  "utworzony podkatalog, w ktrym znajdziesz wszystkie pliki. Nic nie zostanie "
  "skopiowane do innych lokacji na Twoim dysku twardym.")
)
(set #need39
  "\n\nBardzo mi przykro, ale aby uruchomi program IBrowse, potrzebujesz systemu AmigaOS w wersji 3.0 lub nowszej."
)
(set #ask-mui38 (cat
  "\n\nIBrowse uywa niektrych nowych opcji z pakietu MUI3.8\nAby program "
  "IBrowse dziaa prawidowo, musisz zainstalowa t, lub nowsz, wersj pakietu.")
)
(set #newstring-prompt (cat
  "IBrowse uywa klasy NewString.mcc (c) 1995-1997 Rdiger Sopp. Gdzie masz zainstalowany pakiet "
  "MUI?")
)
(set #newstring-help
  "Aby IBrowse dziaa prawidowo, klasa NewString.mcc musi zosta zainstalowana."
)
(set #help-manual (cat
  "Doczona do programu dokumentacja jest w formacie HTML. Jeli nie chcesz jej instalowa "
  "teraz, moesz to zrobi pniej lub przejrze j w archiwum dystrybucyjnym.")
)
(set #ask-manual
  "Czy chcesz zainstalowa doczon dokumentacj w formacie HTML?"
)
(set #nlist-message (cat
  "IBrowse %s uywa pakietu klas MUI NList. Jeli ich nie posiadasz, zostan teraz zainstalowane. "
  "Najnowsze wersje (wcznie z natywnymi wersjami dla procesorw PowerPC)s dostpne na stronie "
  "https://github.com/amiga-mui/nlist.")
)
(set #ice-message (cat
  "Przegldarka buforw programu IBrowse %s uywa kilku klas MUI. "
  "Jeli ich nie posiadasz, zostan teraz zainstalowane.")
)
(set #ice-delete (cat
  "Klasa Cache Explorer znajduje si obecnie w katalogu ibcc, "
  "ten plik nie jest ju wymagany ")
)
(set #multiview-error (cat
  "Nie mona znale programu MultiView. Po zakoczeniu instalacji "
  "prosz przeczyta plik ReadMe.txt")
)
(set #mui38-message (cat
  "\n\n\nDo poprawnej pracy program IBrowse wymaga pakietu MUI w wersji 3.8 "
  "lub nowszej. Moesz pomin t cz i zainstalowa pakiet MUI "
  "rcznie z innego rda, jednak zaleca si, aby pozwoli temu skryptowi zainstalowa rwnie "
  "pakiet MUI.\n")
)
(set #mui-curr_message
  "Obecnie masz zainstalowany pakiet MUI %s."
)
(set #nomui-message
  "Obecnie nie masz zainstalowanej adnej wersji pakietu MUI"
)
(set #upgrade-message (cat
  "\n\nUaktualnianie istniejcej instalacji programu IBrowse %s.\n"
  "Twoje obecne preferencje nie zostan nadpisane, aby nie utraci obecnych ustawie. "
  "Nowy plik z preferencjami zostanie skopiowany jako IBrowse_%s.prefs na wypadek, "
  "gdyby go potrzebowa")
)
(set #prompt-proceed
  "Kontynuuj"
)
(set #prompt-skip
  "Pomi t cz"
)
(set #prompt-copy
  "Kopiowanie"
)
(set #prompt-dearchiving
  "Rozpakowywanie archiww dystrybucyjnych..."
)
(set #prompt-insertdisk
  "\n\n\nProsz woy dyskietk %ld"
)
(set #image-prompt
  "Kopiowanie obrazkw programu - jeli uywasz obrazkw innego autora, pomi t cz."
)
(set #upgradev1-message (cat
  "\n\nWykryto instalacj programu IBrowse w wersji 1.x - nazwa Twojego obecnego "
  "katalogu z programem zostanie zmieniona na \"IBrowseV1\" "
  "a program IBrowse %s zostanie zainstalowany w nowym katalogu "
  "IBrowse.")
)
(set #catalogver-prompt (cat
  "Co najmniej jeden z plikw lokalizacyjnych wybranych przez Ciebie zosta dostarczony "
  "w dwch wersjach (sprawd pomoc, aby uzyska wicej informacji).\nWybierz ktr wersj chcesz zainstalowa:")
)
(set #catalogver-help (cat
  "Niektre pliki lokalizacyjne programu IBrowse zostay dostarczone w dwch formatach "
  "- jednym dla klasycznych systemw AmigaOS 3.x, drugim - dla AmigaOS 4. "
  "Pliki dla AmigaOS4 mog uywa odpowiedniejszych zestaww znakw (np. ISO-8859-2) "
  "i czcionek w celu lepszej obsugi jzykw uywajcych znakw spoza tabeli Latin1.\n\n"
  "Skrypt instalacyjny wykry, e Twj system potrafi wykorzysta pliki lokalizacyjne "
  "dla systemu AmigaOS4, wic zaleca si uycie tej opcji. Jednak moesz rwnie zainstalowa "
  "pliki dla systemu OS3.x w celu zapewnienia zgodnoci wstecznej - obie wersje mog by zainstalowane "
  "jednoczenie, i waciwy bdzie uywany w zalenoci od tego, czy bdziesz uruchamia program"
  "pod kontrol systemu AmigaOS3.x czy te AmigaOS4.")
)
(set #olddocs-prompt (cat
  "Masz zainstalowan star dokumentacj. Czy chcesz j skasowa?\n\n"
  "(nowa dokumentacja cakowicie j zastpuje)")
)
(set #olddocs-help (cat
  "Jeli chcesz, moesz zachowa star dokumentacj, a nowa zostanie zainstalowana "
  "osobno.  Oba zestawy dokumentacji bd dostpne. "
  "Jednake stara dokumentacja  w porwnaniu z now, jest bardzo nieaktualna i ograniczona, "
  "wic naprawd nie ma powodw do trzymania zainstalowanej starej dokumentacji.")
)
(set #deleteold-prompt
  "Kasowanie plikw starej dokumentacji"
)
(set #deleteold-help
  "Katalog \"helpfiles\" zostanie skasowany"
)
))

; *** Portugus ***
;(if (= @language "portugus") (
;
;))

; *** Portugus-Brasil ***
;(if (= @language "portugus-brasil") (
;
;))

; *** Russian ***
;(if (= @language "russian") (
;
;))

; *** Slovensko ***
;(if (= @language "slovensko") (
;
;))

; *** Suomi ***
;(if (= @language "suomi") (
;
;))

; *** Svenska ***
;(if (= @language "svenska") (
;
;))

; /*------------------------------------------------------------------------*/

(procedure p_install-images-merge
  (if (not (exists #image-dir) )
    ( (makedir #image-dir)
      (copyfiles (source #imagessrc-dir) (dest #image-dir) (all) )
      (copyfiles (source "images/Picture.info") (dest #image-dir) ) )
    ( (copyfiles (source #imagessrc-dir) (dest #image-dir) (all) (confirm "average") (prompt #image-prompt) (help @copyfiles-help))
      (if (not (exists (tackon #image-dir "StatusBar") ) )
        (copyfiles (source (tackon #imagessrc-dir "StatusBar") ) (dest #image-dir) ) )
      (if (< #ibrowse-version 24)
        ( (copyfiles (source (tackon #imagessrc-dir "Picture") ) (dest #image-dir) )
          (copyfiles (source "images/Picture.info") (dest #image-dir) ) ) ) ) ) )

(procedure p_install-images-replace
  (if (not (exists #image-dir) )
    (makedir #image-dir)
    ( (set #renameddir (cat "images" #oldver) )
      (message (#image-replace-prompt #oldver #renameddir) )
      (rename #image-dir (tackon #ibdir #renameddir) ) ) )
  (copyfiles (source #imagessrc-dir) (dest #image-dir) (all) )
  (copyfiles (source "images/Picture.info") (dest #image-dir) ) )

(procedure p_install-images
  (set #image-dir (tackon #ibdir "images") )
  (set #defimages (if (<= #dispdepth 8) 0 1) )
  (if (and (exists #image-dir) (= #ibrowse-version #app-vernum) )
    (set #result (askchoice
      (choices (cat #propchoices #images-32Color) #images-256Color #images-none)
      (prompt #images-prompt)
      (help #images-help)
      (default (if (< #ibrowse-version #app-vernum) #defimages 2) ) ) )      
    (set #result (askchoice
      (choices (cat #propchoices #images-32Color) #images-256Color)
      (prompt #images-prompt)
      (help #images-help)
      (default #defimages) ) ) )
  (set #imagessrc-dir (if (= #result 0) "images" "images-8bit") )
  (if (< #result 2)
    (if (< #ibrowse-version #app-vernum)
      (p_install-images-replace)
      (p_install-images-merge) ) ) )

(procedure p_install-misc
  (set #info-dir (tackon #ibdir "info") )
  (if (not (exists #info-dir) )
    (makedir #info-dir) )
  (copyfiles (source "info") (dest #info-dir) (all) )

  (if (not (exists (tackon #ibdir "IBrowse.info") ) )
    (set #copyicon 1)
    (if (= #ibrowse-version #app-vernum)
      (set #copyicon 0)
      (set #copyicon (askbool (prompt #copyicon-prompt) (help @askbool-help) (default 0) ) ) ) )

  (if (= #copyicon 1)
    (copyfiles (source "icons/IBrowse.info") (dest #ibdir) ) )

  (set #protocols-dir (tackon #ibdir "protocols") )
  (if (not (exists #protocols-dir) )
    (makedir #protocols-dir) )
  (copyfiles (source "protocols") (dest #protocols-dir) (all) )

  (set #ibcc-dir (tackon #ibdir "ibcc") )
  (if (not (exists #ibcc-dir) )
    (makedir #ibcc-dir) )
  (copyfiles (source "ibcc" ) (dest #ibcc-dir) (all) )

  (set #cache-dir (tackon #ibdir "Cache") )
  (if (not (exists #cache-dir) )
    (makedir #cache-dir) )

  (set #plugins-dir (tackon #ibdir "Plugins") )
  (if (not (exists #plugins-dir) )
    ( (makedir #plugins-dir)
      (copyfiles (source "icons/PluginsDrw.info") (dest #ibdir) (newname "Plugins.info") ) ) ) )

(procedure p_install-codecs
  (set #codecs-dir (tackon #ibdir "codecs") )
  (if (not (exists #codecs-dir) )
    (makedir #codecs-dir) )
  (if (or (= #cpu-install 1) (= #cpu-install 5) )
    (copyfiles (source "codecs" ) (dest #codecs-dir) (all) )
    ( (if (= #cpu-install 2) (set #codecssrc-dir "codecs68020fpu") )
      (if (= #cpu-install 3) (set #codecssrc-dir "codecs68040fpu") )
      (if (= #cpu-install 4) (set #codecssrc-dir "codecs68060fpu") )
      (run (cat "spatch \"-o" (tackon #codecs-dir "gif.codec") "\" -p" (tackon #codecssrc-dir "gif.codec.spatch") " codecs/gif.codec" ) )
      (run (cat "spatch \"-o" (tackon #codecs-dir "jpeg.codec") "\" -p" (tackon #codecssrc-dir "jpeg.codec.spatch") " codecs/jpeg.codec" ) )
      (run (cat "spatch \"-o" (tackon #codecs-dir "png.codec") "\" -p" (tackon #codecssrc-dir "png.codec.spatch") " codecs/png.codec" ) )
      (run (cat "spatch \"-o" (tackon #codecs-dir "xbm.codec") "\" -p" (tackon #codecssrc-dir "xbm.codec.spatch") " codecs/xbm.codec" ) )
      (run (cat "spatch \"-o" (tackon #codecs-dir "imagedecode.module") "\" -p" (tackon #codecssrc-dir "imagedecode.module.spatch") " codecs/imagedecode.module" ) ) ) ) )

(procedure p_install-javascript
  (if (= #mos 1)
    (copyfiles (source "javascript/javascript.library.mos" ) (dest #ibdir) (newname "javascript.library" ) )
    ( (if (= #cpu-install 5)
        (copyfiles (source "javascript/javascript.library" ) (dest #ibdir) ) )
      (if (= #cpu-install 1)
        (copyfiles (source "javascript/javascript.library.020" ) (dest #ibdir) (newname "javascript.library" ) ) )
      (if (= #cpu-install 2)
        (run (cat "spatch \"-o" (tackon #ibdir "javascript.library") "\" -pjavascript/javascript.library.020-020fpu javascript/javascript.library.020" ) ) )
      (if (= #cpu-install 3)
        (run (cat "spatch \"-o" (tackon #ibdir "javascript.library") "\" -pjavascript/javascript.library.020-040fpu javascript/javascript.library.020" ) ) )
      (if (= #cpu-install 4)
        (run (cat "spatch \"-o" (tackon #ibdir "javascript.library") "\" -pjavascript/javascript.library.020-060fpu javascript/javascript.library.020" ) ) ) ) ) )

(procedure p_install-anims
  (set #defanim 1)
  (if (>= #dispdepth 15)
    (set #defanim 0) )
  (if (<= #dispdepth 6)
    (set #defanim 3) )
  (if (<= #dispdepth 5)
    (set #defanim 3) )
  (if (exists (tackon #image-dir "TransferAnimation") )
    (set #result (askchoice
      (choices (cat #propchoices #anim-TrueColor) #anim-256Color #anim-64Color #anim-32Color #anim-32ColorNM #anim-None)
      (prompt #anim-prompt)
      (help #anim-help)
      (default (if (< #ibrowse-version #app-vernum) #defanim 5) ) ) )
    (set #result (askchoice
      (choices (cat #propchoices #anim-TrueColor) #anim-256Color #anim-64Color #anim-32Color #anim-32ColorNM)
      (prompt #anim-prompt)
      (help #anim-help)
      (default #defanim) ) ) )
  (if (= #result 0)
    (copyfiles (source "Anims/TransferAnimation.24") (dest #image-dir) (newname "TransferAnimation") ) )
  (if (= #result 1)
    (copyfiles (source "Anims/TransferAnimation") (dest #image-dir) (newname "TransferAnimation") ) )
  (if (= #result 2)
    (copyfiles (source "Anims/TransferAnimation.6") (dest #image-dir) (newname "TransferAnimation") ) )
  (if (= #result 3)
    (copyfiles (source "Anims/TransferAnimation.5") (dest #image-dir) (newname "TransferAnimation") ) )
  (if (= #result 4)
    (copyfiles (source "Anims/TransferAnimationNM") (dest #image-dir) (newname "TransferAnimation") ) )
  (if (<= #result 4)
    ( (copyfiles (source "Anims/TransferAnimation.info") (dest #image-dir) )
      (if (= #result 4)
        (tooltype (dest (tackon #image-dir "TransferAnimation") ) (settooltype "FRAMES" "1") ) ) ) ) )
  
(procedure p_copy-catalog
  (if (in #languages #catalog)
    ( (set #lang-os3 (select #catalog "english" "bosanksi" "catal" "czech" "dansk" "deutsch" "espaol" "franais" "greek" "italiano" "magyar" "nederlands" "norsk" "polski" "portugus" "portugus-brazil" "russian" "slovensko" "srpski" "suomi" "svenska") )
      (set #lang-os4 (select #catalog "english" "bosnian" "catalan" "czech" "danish" "german" "spanish" "french" "greek" "italian" "hungarian" "dutch" "norwegian" "polish" "portuguese" "portuguese-brazil" "russian" "slovenian" "serbian" "finnish" "swedish") )
      (set #dest-lang (tackon (tackon #ibdir "Catalogs") (if #os4 #lang-os4 #lang-os3) ) )
      (if (not (exists #dest-lang) ) (makedir #dest-lang) )
      (copyfiles
        (source (tackon "Catalogs" #lang-os4) )
        (dest #dest-lang)
        (pattern "#?.catalog")
        (files) ) ) ) )

(procedure p_install-catalogs
  (set #avail-lang 1) ; English (built-in)
  (foreach "Catalogs" "#?"
    (set #i 0)
    (while (<> @each-name (select #i "english" "bosnian" "catalan" "czech" "danish" "german" "spanish" "french" "greek" "italian" "hungarian" "dutch" "norwegian" "polish" "portuguese" "portuguese-brazil" "russian" "slovenian" "serbian" "finnish" "swedish" @each-name))
      (set #i (+ #i 1))
    )
    (set #avail-lang (bitor #avail-lang (shiftleft 1 #i)))
  )

  (set #default-lang 1) ; English
  (set #i 0)
  (while (<> @language (select #i "english" "bosanksi" "catal" "czech" "dansk" "deutsch" "espaol" "franais" "greek" "italiano" "magyar" "nederlands" "norsk" "polski" "portugus" "portugus-brazil" "russian" "slovensko" "srpski" "suomi" "svenska" @language))
    (set #i (+ #i 1))
  )
  (if (in #avail-lang #i)
	  (set #default-lang (bitor #default-lang (shiftleft 1 #i))))

  (if (< #installer-ver 42)
    (set #nolang-fmt "(%s)")
    (set #nolang-fmt "") )

  (set #languages
    (askoptions
      (choices
        (cat #propchoices "English (built-in)")
	(if (in #avail-lang  1) "Bosanski" (#nolang-fmt "Bosanski"))
	(if (in #avail-lang  2) "Catal" (#nolang-fmt "Catal"))
	(if (in #avail-lang  3) "Czech" (#nolang-fmt "Czech"))
	(if (in #avail-lang  4) "Dansk" (#nolang-fmt "Dansk"))
	(if (in #avail-lang  5) "Deutsch" (#nolang-fmt "Deutsch"))
	(if (in #avail-lang  6) "Espaol" (#nolang-fmt "Espaol"))
	(if (in #avail-lang  7) "Franais" (#nolang-fmt "Franais"))
	(if (in #avail-lang  8) "Greek" (#nolang-fmt "Greek"))
	(if (in #avail-lang  9) "Italiano" (#nolang-fmt "Italiano"))
	(if (in #avail-lang 10) "Magyar" (#nolang-fmt "Magyar"))
	(if (in #avail-lang 11) "Nederlands" (#nolang-fmt "Nederlands"))
	(if (in #avail-lang 12) "Norsk" (#nolang-fmt "Norsk"))
	(if (in #avail-lang 13) "Polski" (#nolang-fmt "Polski"))
	(if (in #avail-lang 14) "Portugus" (#nolang-fmt "Portugus"))
	(if (in #avail-lang 15) "Portugus-brasil" (#nolang-fmt "Portugus-brasil"))
	(if (in #avail-lang 16) "Russian" (#nolang-fmt "Russian"))
	(if (in #avail-lang 17) "Slovensko" (#nolang-fmt "Slovensko"))
	(if (in #avail-lang 18) "Srpski" (#nolang-fmt "Srpski"))
	(if (in #avail-lang 19) "Suomi" (#nolang-fmt "Suomi"))
	(if (in #avail-lang 20) "Svenska" (#nolang-fmt "Svenska"))
      )
      (prompt #languages-prompt)
      (help #languages-help)
      (default #default-lang) ) )

  (set #catdir (tackon #ibdir "Catalogs"))
  (if (not (exists #catdir) ) (makedir #catdir) )

  (set #catalog 1)
  (until (> #catalog 20)
    (p_copy-catalog)
    (set #catalog (+ #catalog 1) )
  ) )

(procedure p_install-manual
  (set #manual-dir (tackon #ibdir "documentation") )
  (if (not (exists #manual-dir) )
    (makedir #manual-dir) )
  (copyfiles (source "documentation") (dest #manual-dir) (all) )
  (copyfiles
    (source "ib2.html" )
    (dest #ibdir) )
  (copyfiles
    (source "ib2.html.info" )
    (dest #ibdir) ) )

(procedure p_install-dummymanual
  (if (exists "ib2_dummy.html")
    (copyfiles
      (source "ib2_dummy.html" )
      (dest #ibdir ) )
    (copyfiles
      (source "ib2.html" )
      (dest #ibdir ) )
  )
  (copyfiles
    (source "ib2.html.info" )
    (dest #ibdir) ) )

(procedure p_delete-oldmanual
  (set #docdir (tackon #ibdir "helpfiles") )
  (foreach #docdir "#?"
    (delete (tackon #docdir @each-name)
      (prompt #deleteold-prompt)
      (help #deleteold-help)
      (optional "force")
    )
  )
  (delete #docdir
    (prompt #deleteold-prompt)
    (help #deleteold-help)
    (optional "force")
  )
)

(set #logo (if (exists "info/ibrowse-logo.ilbm") "info/ibrowse-logo.ilbm" "info/ibrowse-logo.png") )

(if (>= #installer-ver 44)
  (showmedia "#logo-handle" #logo "upper_center" "none" 0) )

(welcome)

(if (not #v39)
   (abort #need39)
)

(set #app-cpu (if (= #cpu-install 5) "PPC (OS4)" "68K (OS3)") )

(message (#welcome #app-version #app-cpu #app-year) #welcome-store)

(if (and (= #cpu-install 5) (<> (getenv "AppDir/IBrowse") "") )
  (set @default-dest (expandpath (pathonly (getenv "AppDir/IBrowse") ) ) ) )

(set #ibdir
  (askdir
    (prompt #destdir-prompt)
    (help #destdir-help)
    (default @default-dest) ) )

(complete 5)

(if (= #disk-install 1) 
  ( (working "Dearchiving distribution archive...")
    (run "t:lhex >nil: -fw=t: x IBrowse2Install1:IBrowse2Archive1.lha" ) ) )

(set #ibrowse-dir (tackon #ibdir "IBrowse") )
(if (not (exists #ibrowse-dir) )
  ( (set #ibrowse-version 0)
    (makedir #ibrowse-dir) )
  ( (set #ibrowse-version (/ (getversion (tackon #ibrowse-dir "IBrowse") ) 65536 ) )
    (if (and (> #ibrowse-version 0) (< #ibrowse-version 20) )
      ( (message (#upgradev1-message #app-version) )
        (rename (tackon #ibdir "IBrowse") (tackon #ibdir "IBrowseV1") )
        (makedir #ibrowse-dir) )
      (if (>= #ibrowse-version 20)
        (
          (set #oldver ("%ld.%ld" (/ #ibrowse-version 10) (- #ibrowse-version (* (/ #ibrowse-version 10) 10) ) ) )
          (set #msg (if (exists "IBrowse.prefs") #upgrade-message #upgrade-message-noprefs) )
          (message (#msg #oldver #app-version) ) ) ) ) ) )

(if (not (exists (tackon #ibrowse-dir "IBrowse.info") ) )
  (copyfiles (source "icons/IBrowseDrw.info") (dest #ibdir) (newname "IBrowse.info") ) )

(complete 10)

(set #ibdir (tackon #ibdir "IBrowse"))

(set @default-dest #ibdir)

(p_install-catalogs)

(complete 15)

(if (<> #cpu-install 5)
  (set #cpu-install (+ 1
    (askchoice
      (choices (cat #propchoices "68020") "68020/FPU" "68040/FPU" "68060/FPU")
        (prompt (if (= #mos 1) #cpu-prompt-ppc #cpu-prompt) )
        (help #cpu-help)
        (default (- #cpu-install 1) ) ) ) ) )

(complete 18)

(p_install-misc)

(complete 24)

(if (exists (tackon #ibdir "IBCacheBrowser.mcc") )
  (delete (tackon #ibdir "IBCacheBrowser.mcc") (optional "force") (prompt #ice-delete) ) )

(complete 27)

(if (exists "documentation")
  (set #instmanual (askbool (help #help-manual) (prompt #ask-manual) ) )
  (set #instmanual 0)
)

(if (= #instmanual 1)
  ( (if (exists (tackon #ibdir "helpfiles") )
      (if (askbool (prompt #olddocs-prompt) (help #olddocs-help) (default 1) )
        (p_delete-oldmanual)
      )
    )
    (p_install-manual)
  )
  (p_install-dummymanual)
)

(complete 30)

(copyfiles (source "IBrowse") (dest #ibdir) )

(complete 40)

(copyfiles (source "History.txt") (dest #ibdir) )
(copyfiles (source "History.html") (dest #ibdir) )

(complete 50)

(if (= #disk-install 1) 
  ( (askdisk
        (prompt (#prompt-insertdisk 2)) (help "")
        (dest "IBrowse2Install2") )
    (run "delete >nil: #? all")
    (working #prompt-dearchiving)
    (run "t:lhex >nil: -fw=t: x IBrowse2Install2:IBrowse2Archive2.lha" ) ) )

(p_install-codecs)

(complete 60)

(p_install-javascript)

(complete 65)

(p_install-images)

(complete 70)

(p_install-anims)


(if (= #disk-install 1) 
  ( (set #mui38 (>= (getversion "libs:muimaster.library" ) 1048736) )
    (if (not #mui38)
      ( (set #muiver (/ (getversion "libs:muimaster.library" ) 65536) )

			(if (= #muiver  0) (set #muiverstr "" )
			(if (< #muiver  6) (set #muiverstr "1.x")
			(if (= #muiver  6) (set #muiverstr "1.4")
			(if (= #muiver  7) (set #muiverstr "2.0")
			(if (= #muiver  8) (set #muiverstr "2.1")
			(if (= #muiver  9) (set #muiverstr "2.2")
			(if (= #muiver 10) (set #muiverstr "2.3")
			(if (= #muiver 11) (set #muiverstr "3.0")
			(if (= #muiver 12) (set #muiverstr "3.1")
			(if (= #muiver 13) (set #muiverstr "3.2")
			(if (= #muiver 14) (set #muiverstr "3.3")
			(if (= #muiver 15) (set #muiverstr "3.4")
			(if (= #muiver 16) (set #muiverstr "3.5")
			(if (= #muiver 17) (set #muiverstr "3.6")
			(if (= #muiver 18) (set #muiverstr "3.7")
			(if (= #muiver 19) (set #muiverstr "3.8")
			(if (= #muiver 20) (set #muiverstr "3.9")
			(if (> #muiver 20) (set #muiverstr "" )
			))))))))))))))))))

        (if (<> #muiver 0)
          (set #str (cat #mui38-message (#mui-curr-message muiverstr) ) )
          (set #str #nomui-message) )
        (if (askbool
          (prompt #str)
            (help #ask-mui38)
            (choices #prompt-proceed #prompt-skip) )
          ( (askdisk
            (prompt (#prompt-insertdisk 3)) (help "")
            (dest "IBrowse2Install3") )
            (set @execute-dir "IBrowse2Install3:")
            (if (= @user-level 1)
              (run (cat "Installer433 Install-MUI APPNAME \"MUI 3.8\" MINUSER NOVICE DEFUSER AVERAGE LOGFILE t:install.log") )
              (run (cat "Installer433 Install-MUI APPNAME \"MUI 3.8\" MINUSER NOVICE DEFUSER EXPERT LOGFILE t:install.log") ) ) ) ) ) ) ) )

(complete 75)

(if (= (exists (tackon #muidir "Newstring.mcc") (noreq)) 1)
  (set #newstring-version (getversion (tackon #muidir "Newstring.mcc") ) )
  (set #newstring-version 0 ) )

(if (< #newstring-version 1048594) ; v16.18
  (copyfiles (source "mui")
             (pattern "Newstring.mc?")
             (dest #muidir)
             (prompt #newstring-prompt)
             (help #newstring-help)
             (confirm "average")
             (files) ) )

(complete 78)

(message (#nlist-message #app-version))
        
(copylib (prompt #prompt-copy "\n\nNList.mcc" )
         (help @copylib-help)
         (confirm "average")
         (source "mui/NList.mcc")
         (dest #muidir)
         (optional "oknodelete" "force")
)

(complete 80)

(copylib (prompt #prompt-copy "\n\nNListview.mcc" )
         (help @copylib-help)
         (confirm "average")
         (source "mui/NListview.mcc")
         (dest #muidir)
         (optional "oknodelete" "force")
)

(complete 82)

(copylib (prompt #prompt-copy "\n\nNListviews.mcp" )
         (help @copylib-help)
         (confirm "average")
         (source "mui/NListviews.mcp")
         (dest #muidir)
         (optional "oknodelete" "force")
)

(complete 84)

(copylib (prompt #prompt-copy "\n\nNFloattext.mcc" )
         (help @copylib-help)
         (confirm "average")
         (source "mui/NFloattext.mcc")
         (dest #muidir)
         (optional "oknodelete" "force")
)

(complete 86)

(copylib (prompt #prompt-copy "\n\nNListtree.mcc" )
         (help @copylib-help)
         (confirm "average")
         (source "mui/NListtree.mcc")
         (dest #muidir)
         (optional "oknodelete" "force")
)

(complete 88)

(copylib (prompt #prompt-copy "\n\nNListtree.mcp" )
         (help @copylib-help)
         (confirm "average")
         (source "mui/NListtree.mcp")
         (dest #muidir)
         (optional "oknodelete" "force")
)

(complete 90)

(copylib (prompt #prompt-copy "\n\nNBitmap.mcc" )
         (help @copylib-help)
         (confirm "average")
         (source "mui/NBitmap.mcc")
         (dest #muidir)
         (optional "oknodelete" "force")
)

(complete 92)

(copylib (prompt #prompt-copy "\n\nNBalance.mcc" )
         (help @copylib-help)
         (confirm "average")
         (source "mui/NBalance.mcc")
         (dest #muidir)
         (optional "oknodelete" "force")
)

(complete 94)

(message (#ice-message #app-version))
        
(copylib (prompt #prompt-copy "\n\nTextHistory.mcc" )
         (help @copylib-help)
         (confirm "average")
         (source "mui/TextHistory.mcc")
         (dest #muidir)
         (optional "oknodelete" "force")
)

(complete 96)

(copylib (prompt #prompt-copy "\n\nStringHistory.mcc" )
         (help @copylib-help)
         (confirm "average")
         (source "mui/StringHistory.mcc")
         (dest #muidir)
         (optional "oknodelete" "force")
)

(complete 98)

(if (exists "IBrowse.prefs")
  (if (exists (tackon #ibdir "IBrowse.prefs") )
    (copyfiles (source "IBrowse.prefs") (dest #ibdir) (newname ("IBrowse_%s.prefs" #app-version)) )
    (copyfiles (source "IBrowse.prefs") (dest #ibdir) ) ) )

(complete 99)

(if (exists "sys:utilities/multiview")
  (set #multiview "sys:utilities/multiview")
)

(if (exists "sys:tools/multiview")
  (set #multiview "sys:tools/multiview")
)

(if (exists "sys:system/multiview")
  (set #multiview "sys:system/multiview")
)

(if (= #multiview 0)
  (message #multiview-error)
  (run (cat #multiview " ReadMe.txt") )
)

(complete 100)
